home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / lf_14sch.lsp < prev    next >
Text File  |  1998-03-15  |  928b  |  35 lines
  1. (defun C:LF-14V1Z (/ P1)
  2.    (EAITDBL "0029414")
  3.    (princ (strcat "\n\n" EAITbez1))
  4.    (EAITvari)
  5.    (EAITvars)
  6.    (setvar "ORTHOMODE" 0)
  7.    (EAITbpt EAITofzen 4 nil)
  8.    (setq P1 (getpoint))
  9.    (if (= P1 nil)(setq P1 (EAITrpt)))
  10.    (setvar "ORTHOMODE" 1)
  11.    (setvar "OSMODE" 0)
  12.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  13.    (command EAITege (strcat EAITpfn "LF_14v1z") P1 "" "" EAITofkei pause)
  14.    (EAITvarz2)
  15.    (princ)
  16. )
  17.  
  18. (defun C:LF-14V1E (/ P1)
  19.    (EAITDBL "0029415")
  20.    (princ (strcat "\n\n" EAITbez1))
  21.    (EAITvari)
  22.    (EAITvars)
  23.    (setvar "ORTHOMODE" 0)
  24.    (EAITbpt EAITofzen 4 nil)
  25.    (setq P1 (getpoint))
  26.    (if (= P1 nil)(setq P1 (EAITrpt)))
  27.    (setvar "ORTHOMODE" 1)
  28.    (setvar "OSMODE" 0)
  29.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  30.    (command EAITege (strcat EAITpfn "LF_14v1e") P1 "" "" EAITofkei pause)
  31.    (EAITvarz2)
  32.    (princ)
  33. )
  34. (princ)
  35.